home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / card_7977.txt < prev    next >
Text File  |  1990-04-02  |  3KB  |  82 lines
  1. -- card: 7977 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 7765
  5. -- name: Experiment 2
  6. ----- HyperTalk script -----
  7. on runExperiment
  8.   global timeIncrement2,rotIncrement2
  9.   global wheelSpeed,wheelRadius
  10.   global cardClear2
  11.  
  12.   put 176 into centerLine
  13.   put 0 into theta
  14.   put 0 into timeElapsed
  15.   put "0," & 176-round(wheelRadius) into oldPoint
  16.   put oldPoint into newPoint
  17.   put false into cardClear2
  18.   hide menubar
  19.   choose line tool
  20.   set the lineSize to 2
  21.   put "Click the mouse to stop." into field "Blurb"
  22.  
  23.   repeat until the mouse is down
  24.     put round((wheelSpeed*timeElapsed)+(wheelRadius*sin(theta))) into item 1 of newPoint  -- x-coordinate
  25.     put round(centerLine-(wheelRadius*cos(theta))) into item 2 of newPoint  -- y-coordinate
  26.     if item 1 of newPoint > 412 then exit repeat
  27.     drag from oldPoint to newPoint
  28.     put newPoint into oldPoint
  29.     put timeElapsed+timeIncrement2 into timeElapsed
  30.     put theta+rotIncrement2 into theta
  31.   end repeat
  32.   choose browse tool
  33.   show menubar
  34.   put "Click on this field to restore the screen." into field "Blurb"
  35. end runExperiment
  36.  
  37.  
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 81
  42. -- high flags: 2004
  43. -- rect: left=11 top=40 right=326 bottom=403
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 3
  48. -- text size: 12
  49. -- style flags: 256
  50. -- line height: 16
  51. -- part name: Help
  52.  
  53.  
  54. -- part 5 (button)
  55. -- low flags: 00
  56. -- high flags: A002
  57. -- rect: left=16 top=319 right=340 bottom=76
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Return
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   global ReturnCard
  69.   go ReturnCard
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part contents for background part 1
  75. ----- text -----
  76. Press this field to begin tracing the path of the pen.
  77.  
  78. -- part contents for card part 2
  79. ----- text -----
  80.   This experiment deals with a pen mounted at the edge of a wheel which is mounted on top of a cart that is moving to the right at a constant velocity.  the wheel rotates at a velocity independent of the speed of the cart and on an axis perpendicular to the direction of motion of the cart (i.e. straight out from the screen).  The pen traces its path on a piece of clear plastic as it passes.
  81.    This card simulates that experiment.  It will compute and draw the path of the pen based on the parameters you can set by clicking on the "Set Parameters" button in the control panel.
  82.